home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD020A.D64 / 05- pst company (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.0 KB  |  132 lines
  1. 1 GOSUB2000:POKE648,4:POKE53272,21
  2. 2 T(0)=20
  3. 3 T(1)=30
  4. 4 T(2)=40
  5. 5 FORI=0TO24:POKE54272+I,0:NEXT:POKE54296,15
  6. 7 FORI=0TO2:POKE54278+7*I,14*16+15:POKE54272+7*I,T(I):POKE54273+7*I,T(I)
  7. 8 POKE54276+7*I,33:NEXT
  8. 9 FORI=0TO2:POKE54276+7*I,32:NEXT
  9. 10 POKE53281,13:POKE53280,13:POKE53272,25
  10. 20 PRINT"[147]        T[212]I[201]M[205]E[197]  T[212]O[207]  S[211]E[197]N[206]D[196]"
  11. 21 PRINT"          G[199]R[210]E[197]E[197]T[212]I[201]N[206]G[199]S[211]"
  12. 22 FORI=1TO2500:NEXT
  13. 24 PRINT"     I[201]N[206]  A[193]L[204]P[208]H[200]A[193]B[194]E[197]T[212]I[201]C[195]A[193]L[204]"
  14. 25 PRINT"               O[207]R[210]D[196]E[197]R[210]"
  15. 26 FORI=1TO2500:NEXT:PRINT"[147]";:POKE53281,3:POKE53280,3
  16. 100 READA$:IFA$="***"THEN200
  17. 110 PRINTSPC(20-LEN(A$)/2)A$
  18. 120 GOTO100
  19. 200 PRINT"[145][159]LOAD"CHR$(34)"06*"CHR$(34)",8:"
  20. 210 PRINT"RUN: [153]A[193]N[206]D[196]  T[212]H[200]E[197]  R[210]E[197]S[211]T[212].[174].[174].[174][159][145][145][145][145][145][145][145][145]"
  21. 220 POKE198,2:POKE631,13:POKE632,13
  22. 900 END
  23. 1000 DATA "A[193]B[194]O[207]M[205]I[201]N[206]A[193]T[212]I[201]O[207]N[206]"
  24. 1003 DATA "A[193]C[195]T[212]I[201]V[214]E[197]"
  25. 1004 DATA "A[193]L[204]B[194]I[201]O[207]N[206]  C[195]R[210]E[197]W[215]"
  26. 1005 DATA "A[193]L[204]P[208]H[200]A[193]  F[198]L[204]I[201]G[199]H[200]T[212]"
  27. 1008 DATA "A[193]N[206]T[212]I[201]C[195]"
  28. 1010 DATA "A[193]T[212]L[204]A[193]N[206]T[212]I[201]S[211]"
  29. 1012 DATA "B[194]E[197]Y[217]O[207]N[206]D[196]  F[198]O[207]R[210]C[195]E[197]"
  30. 1015 DATA "B[194]Y[217]T[212]E[197]R[210]A[193]P[208]E[197]R[210]S[211]"
  31. 1018 DATA "C[195]R[210]E[197]S[211]T[212]"
  32. 1020 DATA "E[197]X[216]T[212]E[197]N[206]D[196]"
  33. 1030 DATA "F[198]4[180]C[195]G[199]"
  34. 1040 DATA "L[204]E[197]P[208]S[211]I[201]  D[196]E[197]V[214]E[197]L[204]O[207]P[208]M[205]E[197]N[206]T[212]S[211]"
  35. 1080 DATA "O[207]R[210]I[201]G[199]O[207]"
  36. 1090 DATA "O[207]X[216]Y[217]R[210]O[207]N[206]"
  37. 1095 DATA "P[208]A[193]L[204]A[193]C[195]E[197]"
  38. 1100 DATA "P[208]A[193]N[206]I[201]C[195]"
  39. 1120 DATA "S[211]M[205]A[193]S[211]H[200]  D[196]E[197]S[211]I[201]G[199]N[206]S[211]"
  40. 1150 DATA "T[212]H[200]E[197]  S[211]H[200]A[193]R[210]K[203]S[211]"
  41. 1200 DATA "T[212]O[207]P[208]A[193]Z[218]"
  42. 1500 DATA "***"
  43. 2000 POKE53281,0:POKE53280,0
  44. 2010 PRINT"[147]      STILL SOMETHING TO COME...?":GOSUB2020:GOSUB2100
  45. 2015 PRINT"[147]            C64 RULEZ!!!!!!":GOSUB2020:GOTO8000
  46. 2020 FORI=1TO500:NEXT
  47. 2030 FORI=0TO255:POKE53280,I:NEXT
  48. 2035 FORI=0TO20:PRINT"[155]SPAMMER";
  49. 2036 PRINTMID$("[184][182]I[200][210][146][171][209]M[208][186][162][181][172][165][146] [185]G[213][198][200][200][190][165][146][161][184][165]",RND(0)*15+1,RND(0)*15+1);
  50. 2037 PRINTMID$("[184][182]I[200][210][146][171][209]M[208][186][162][181][172][165][146] [185]G[213][198][200][200][190][165][146][161][184][165]",RND(0)*15+1,RND(0)*15+1);
  51. 2038 PRINTMID$("[184][182]I[200][210][146][171][209]M[208][186][162][181][172][165][146] [185]G[213][198][200][200][190][165][146][161][184][165]",RND(0)*15+1,RND(0)*15+1);
  52. 2039 PRINTMID$("[184][182]I[200][210][171][209][146][208][186][213][162][181][172][165][146][213][198][200][200][202][190][188][165][161][184][165][187][182][181]",RND(0)*15+1,RND(0)*15+1):NEXT
  53. 2040 POKE53281,0:POKE53280,0
  54. 2050 RETURN
  55. 2100 POKE648,48:PRINT"[147]";:GOSUB3000
  56. 2105 POKE648,52:PRINT"[147]";:GOSUB4000
  57. 2110 POKE648,56:PRINT"[147]";:GOSUB5000
  58. 2115 POKE648,60:PRINT"[147]";:GOSUB6000
  59. 2120 POKE648,4:PRINT"[147]";
  60. 2200 GOTO7000
  61. 2999 END
  62. 3000 PRINT""
  63. 3100 PRINTSPC(7)"        [169]  [223] [169] [223]"
  64. 3110 PRINTSPC(7)"  [146][169][223]  [169][223]   "
  65. 3120 PRINTSPC(7)"              "
  66. 3130 PRINTSPC(7)"         "
  67. 3140 PRINTSPC(7)"         "
  68. 3150 PRINTSPC(7)"           "
  69. 3160 PRINTSPC(7)"          "
  70. 3170 PRINTSPC(7)"          "
  71. 3180 PRINTSPC(7)"   [223][169]        "
  72. 3190 PRINTSPC(7)"     [146][223]  [146][169]    [146][223] [146][169]"
  73. 3999 RETURN
  74. 4000 PRINT""
  75. 4100 PRINTSPC(7)"   [223][169]   [223][169]   [223] [169]   [223]"
  76. 4110 PRINTSPC(7)" [146][223] [223] [146][169][223]  [146][169][223]   [146][169][223] "
  77. 4120 PRINTSPC(7)" [146][223]     "
  78. 4130 PRINTSPC(7)" [169][146][169]   [223]  "
  79. 4140 PRINTSPC(7)"      [146][223]   [223]  "
  80. 4150 PRINTSPC(7)" [146][223] [223]     [146][223]   "
  81. 4160 PRINTSPC(7)" [146][223]      "
  82. 4170 PRINTSPC(7)"       "
  83. 4180 PRINTSPC(7)" [169]    [223][169]   [223][169] "
  84. 4190 PRINTSPC(7)"    [146][169]  [146][223]   [146][169] [146][223]   [146][169]"
  85. 4999 RETURN
  86. 5000 PRINT""
  87. 5100 PRINTSPC(7)"   [223]      [223][169] [169]   [223]"
  88. 5110 PRINTSPC(7)" [146][223][223]  [146][223] [146][169]  [146][169][223] "
  89. 5120 PRINTSPC(7)"        "
  90. 5130 PRINTSPC(7)"        "
  91. 5140 PRINTSPC(7)"           "
  92. 5150 PRINTSPC(7)"        "
  93. 5160 PRINTSPC(7)"       "
  94. 5170 PRINTSPC(7)"       "
  95. 5180 PRINTSPC(7)" [169][146][169]    [223][169] "
  96. 5190 PRINTSPC(7)"   [146][169]       [146][223]   [146][169]"
  97. 5999 RETURN
  98. 6000 PRINT""
  99. 6080 PRINTSPC(7)"[169][146][169]"
  100. 6090 PRINTSPC(7)"[169][146][169]"
  101. 6100 PRINTSPC(7)"[169] [146][169]"
  102. 6110 PRINTSPC(7)"[169] [146][169][169]     [223]"
  103. 6120 PRINTSPC(7)"[169]  [146][169][169] [146][169] [146][223] [223]"
  104. 6130 PRINTSPC(7)"[169]  [146][169] [146][169] [146][223] "
  105. 6140 PRINTSPC(7)"[169]  [146][169]   "
  106. 6150 PRINTSPC(7)"[169]            [146][169] [169] [223] "
  107. 6160 PRINTSPC(7)"[169]  [146][169] [169][146][169] [146][223][223] "
  108. 6170 PRINTSPC(7)"[169]  [146][169] [169][146][169] [146][223][223] "
  109. 6180 PRINTSPC(7)"[169] [146][169]     "
  110. 6190 PRINTSPC(7)"[169] [146][169][223] [223] [169] [146][169]"
  111. 6200 PRINTSPC(7)"[169][146][169][223]     [146][169]"
  112. 6210 PRINTSPC(7)"[169][146][169]"
  113. 6999 RETURN
  114. 7000 A(0)=197:A(1)=213:A(2)=229:A(3)=245
  115. 7002 FORI=0TO10:B(I)=INT(RND(0)*7.9)+200:NEXT
  116. 7005 FORI=0TO24:POKE54272+I,0:NEXT:POKE54296,15
  117. 7010 POKE54278,14*16+9:POKE54275,8
  118. 7020 POKE54278+7,14*16+10:POKE54273+7,20
  119. 7050 I=0
  120. 7100 POKE54276,65
  121. 7190 POKE53272,A(IAND3)
  122. 7200 FORJ=10TO1STEP-2:POKE54273,J:POKE53270,B(J):NEXT
  123. 7210 POKE53272,A((I+1)AND3)
  124. 7220 FORJ=10TO1STEP-2:POKE54273,J:POKE53270,B(J):NEXT
  125. 7230 POKE53272,A((I+2)AND3)
  126. 7240 POKE54273,4:POKE646,(IAND3)+1:PRINT"[147]";:FORJ=1TO50:NEXT
  127. 7300 I=I+3:IFI<72THEN7100
  128. 7400 POKE53272,21:POKE54276,0:POKE54276+7,0
  129. 7999 RETURN
  130. 8000 FORI=1TO2300:NEXT
  131. 60000 RETURN
  132.